home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / inst0024 / 00052.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  565 b   |  20 lines
  1. on exitFrame
  2.   global gRsrcPath
  3.   if (the machineType <> 256) and (the colorDepth = 8) then
  4.     openXLib(gRsrcPath & "FIXPAL")
  5.     set F to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageBottom)
  6.     F(mPatchIt)
  7.     F(mdispose)
  8.     closeXLib(gRsrcPath & "FIXPAL")
  9.   end if
  10.   set the visible of sprite 5 to 1
  11.   set the visible of sprite 6 to 1
  12.   ReFreshField()
  13.   puppetSprite(4, 1)
  14.   if the machineType = 256 then
  15.     set the member of sprite 4 to member "RedMarkerWin"
  16.   else
  17.     set the member of sprite 4 to member "RedMarker"
  18.   end if
  19. end
  20.